00100	PROCEDURE SUMSQ Z;
00200	BEGIN
00300	X←0;
00400	FOR I=1:N DO
00500	FOR J=1:N DO
00600	X←X+Z(I,J);
00700	RETURN Z END;
00800	END;